home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / Comal / CITDemos / CITGadgets < prev    next >
Text File  |  2001-04-11  |  4KB  |  163 lines
  1. // All the CIT gadgets in one hand
  2.  
  3. USE CITScreen
  4. USE CITWindow
  5. USE CITGadgets
  6.  
  7. DIM Error OF SHORT
  8. DIM TermCode OF SHORT
  9.  
  10. DIM MyWd OF CITWindow
  11. MyWd.Size(550,220)
  12. MyWd.Activate
  13. MyWd.CloseGadget
  14. ComalScreen.InsObject(MyWd,Error)
  15. IF Error THEN
  16.   STOP "Could'nt open the window"
  17. ENDIF
  18.  
  19. DIM AcceptGad OF ButtonGadget
  20. AcceptGad.Position(10,8)
  21. AcceptGad.Label("Accept",INSIDE)
  22. AcceptGad.KeyEquivalent("Aa")
  23. AcceptGad.EventHandler(Accept())
  24. MyWd.InsObject(AcceptGad,Error)
  25.  
  26. DIM CancelGad OF ButtonGadget
  27. CancelGad.Label("Cancel",INSIDE)
  28. CancelGad.KeyEquivalent("Cc")
  29. CancelGad.Position(150,8)
  30. CancelGad.EventHandler(Cancel())
  31. MyWd.InsObject(CancelGad,Error)
  32.  
  33. DIM CheckGad OF CheckboxGadget
  34. CheckGad.Label("Select me",RIGHT)
  35. CheckGad.KeyEquivalent("Ss")
  36. CheckGad.Position(10,28)
  37. CheckGad.EventHandler(Check())
  38. MyWd.InsObject(CheckGad,Error)
  39.  
  40. DIM StringGad OF StringGadget
  41. StringGad.Label("Type in a text",LEFT)
  42. StringGad.KeyEquivalent("tT")
  43. StringGad.Position(150,48)
  44. MyWd.InsObject(StringGad,Error)
  45.  
  46. DIM NumberGad OF IntegerGadget
  47. NumberGad.Label("Type in a number",LEFT)
  48. NumberGad.Position(150,68)
  49. NumberGad.Replace
  50. NumberGad.Number(25)
  51. NumberGad.EventHandler(NumGadHandler())
  52. MyWd.InsObject(NumberGad,Error)
  53.  
  54. DIM SliderGad OF SliderGadget
  55. SliderGad.Position(150,88)
  56. SliderGad.Limits(0,100)
  57. SliderGad.Label("Value:###%",LEFT)
  58. SliderGad.KeyEquivalent("Ll")
  59. MyWd.InsObject(SliderGad,Error)
  60.  
  61. DIM Scroller OF ScrollerGadget
  62. Scroller.Orientation(HORIZONTAL)
  63. Scroller.Position(40,108)
  64. Scroller.Size(400,10)
  65. Scroller.Arrows(16)
  66. Scroller.Top(10)
  67. Scroller.Total(30)
  68. Scroller.Visible(5)
  69. Scroller.KeyEquivalent("Oo")
  70. MyWd.InsObject(Scroller,Error)
  71.  
  72. DIM CycleGad OF CycleGadget
  73. DIM CycleValg$(4) OF 20
  74. READ CycleValg$()
  75. CycleGad.Position(330,8)
  76. CycleGad.Size(190,14)
  77. CycleGad.Label("Press here",LEFT)
  78. CycleGad.KeyEquivalent("Hh")
  79. CycleGad.Choices(CycleValg$())
  80. MyWd.InsObject(CycleGad,Error)
  81.  
  82. DIM Text OF TextGadget
  83. Text.Position(120,133)
  84. Text.Label("SELECT!",INSIDE+HIGHLIGHT)
  85. MyWd.InsObject(Text,Error)
  86.  
  87. DIM RadioButtons OF RadioButtonsGadget
  88. DIM RadioValg$(4) OF 20
  89. RESTORE
  90. READ RadioValg$()
  91. RadioButtons.Position(150,148)
  92. RadioButtons.Choices(RadioValg$(),LEFT)
  93. RadioButtons.Spacing(3)
  94. RadioButtons.KeyEquivalent("Rr")
  95. MyWd.InsObject(RadioButtons,Error)
  96.  
  97. DIM ListView OF ListViewGadget
  98. DIM ListViewTexts$(4) OF 20
  99. ListViewTexts$(1):="Choice1"
  100. ListViewTexts$(2):="Choice2"
  101. ListViewTexts$(3):="Choice3"
  102. ListViewTexts$(4):="Choice4"
  103. ListView.Position(200,128)
  104. ListView.Size(100,40)
  105. ListView.ChoiceArray(ListViewTexts$())
  106. ListView.Selected(0)
  107. ListView.KeyEquivalent("Vv")
  108. MyWd.InsObject(ListView,Error)
  109.  
  110. DIM Palette OF PaletteGadget
  111. Palette.Position(350,128)
  112. Palette.Color(2)
  113. Palette.KeyEquivalent("Pp")
  114. MyWd.InsObject(Palette,Error)
  115.  
  116. DATA "Choice number 1"
  117. DATA "Choice number 2"
  118. DATA "Choice number 3"
  119. DATA "Choice number 4"
  120.  
  121. IF Error THEN
  122.   PRINT "One or more gadgets could not be created"
  123. ELSE
  124.   WHILE TermCode=0 AND NOT MyWd.ClosePressed DO WAIT
  125.  
  126.   PRINT "Check-gadget: ",CheckGad.Value
  127.   PRINT "String-gadget: ",StringGad.Value$
  128.   PRINT "Number-gadget: ",NumberGad.Value
  129.   PRINT "Slider-gadget: ",SliderGad.Value
  130.   PRINT "Scroller-gadget: ",Scroller.Value
  131.   PRINT "Cycle-gadget: ",CycleGad.Value
  132.   PRINT "Radio-knapper: ",RadioButtons.Value
  133.   PRINT "ListView-gadget: ",ListView.Value
  134.   PRINT "Palette: ",Palette.Value
  135.  
  136.   ComalScreen.RemObject(MyWd)
  137. ENDIF
  138.  
  139. // ****** slut på hoveprogram *********
  140.  
  141.  
  142. PROC Accept(ID OF USHORT)
  143.   TermCode:=1
  144.   PRINT "You pressed 'Accept'"
  145. ENDPROC Accept
  146.  
  147. PROC Cancel(ID OF USHORT)
  148.   TermCode:=2
  149.   PRINT "You pressed 'Cancel'"
  150. ENDPROC Cancel
  151.  
  152. PROC Check(ID OF USHORT)
  153.   IF CheckGad.Value THEN
  154.     CancelGad.Disable
  155.   ELSE
  156.     CancelGad.Enable
  157.   ENDIF
  158. ENDPROC Check
  159.  
  160. PROC NumGadHandler(ID OF USHORT)
  161.   SliderGad.Level(NumberGad.Value)
  162. ENDPROC NumGadHandler
  163.